inherited crdAccpointAct: TcrdAccpointAct
  Left = 428
  Top = 155
  VertScrollBar.Range = 0
  ActiveControl = lcbActType
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1057#1074#1086#1081#1089#1090#1074#1072' '#1072#1082#1090#1072' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
  ClientHeight = 280
  ClientWidth = 580
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 253
    Width = 580
    Align = alTop
    inherited BitBtn1: TBitBtn
      Left = 373
    end
    inherited BitBtn2: TBitBtn
      Left = 475
    end
  end
  inherited ToolBar1: TToolBar
    Top = 280
    Width = 580
    Height = 0
    Caption = ''
    Enabled = False
    Visible = False
    inherited ToolButton1: TToolButton
      Enabled = False
    end
    inherited ToolButton2: TToolButton
      Enabled = False
    end
    inherited ToolButton3: TToolButton
      Enabled = False
    end
    inherited ToolButton4: TToolButton
      Enabled = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 580
    Height = 69
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Bevel2: TBevel
      Left = 0
      Top = 0
      Width = 580
      Height = 69
      Align = alClient
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 7
      Top = 12
      Width = 79
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #8470' '#1072#1082#1090#1072
    end
    object Label2: TLabel
      Left = 7
      Top = 36
      Width = 79
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1044#1072#1090#1072' '#1072#1082#1090#1072
    end
    object Label3: TLabel
      Left = 195
      Top = 36
      Width = 79
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1077#1088#1080#1086#1076' '#1072#1082#1090#1072' '#1089
    end
    object Label4: TLabel
      Left = 375
      Top = 36
      Width = 19
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1087#1086
    end
    object Label5: TLabel
      Left = 223
      Top = 12
      Width = 51
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1058#1080#1087' '#1072#1082#1090#1072
    end
    object dbdeActDate: TDBDateTimeEditEh
      Left = 96
      Top = 34
      Width = 84
      Height = 19
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'ACT_DATE'
      DataSource = dsc_AccpointAct
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      ReadOnly = True
      TabOrder = 1
      Visible = True
    end
    object dbdeBDate: TDBDateTimeEditEh
      Left = 284
      Top = 34
      Width = 84
      Height = 19
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'BDATE'
      DataSource = dsc_AccpointAct
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      ReadOnly = True
      TabOrder = 2
      Visible = True
    end
    object dbdeEDate: TDBDateTimeEditEh
      Left = 404
      Top = 34
      Width = 84
      Height = 19
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'EDATE'
      DataSource = dsc_AccpointAct
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      ReadOnly = True
      TabOrder = 3
      Visible = True
    end
    object dbeActID: TDBEditEh
      Left = 96
      Top = 10
      Width = 84
      Height = 19
      TabStop = False
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'ID'
      DataSource = dsc_AccpointAct
      EditButtons = <>
      Flat = True
      ReadOnly = True
      TabOrder = 4
      Visible = True
    end
    object lcbActType: TDBLookupComboboxEh
      Left = 284
      Top = 10
      Width = 204
      Height = 19
      TabStop = False
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'ACT_TYPE'
      DataSource = dsc_AccpointAct
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_ActTypes
      ReadOnly = True
      TabOrder = 0
      Visible = True
      OnChange = lcbActTypeChange
      OnExit = lcbActTypeExit
    end
  end
  object PageControl: TPageControl [3]
    Left = 0
    Top = 69
    Width = 580
    Height = 184
    ActivePage = tsPotrActs
    Align = alTop
    Style = tsFlatButtons
    TabOrder = 3
    OnChange = PageControlChange
    OnEnter = PageControlEnter
    object tsMeterInd: TTabSheet
      Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1055#1059' '#1087#1086' '#1072#1082#1090#1091
      ImageIndex = 1
      object dbgMeterInd: TDBGridEh
        Left = 0
        Top = 0
        Width = 572
        Height = 153
        Align = alClient
        AllowedOperations = [alopUpdateEh]
        DataGrouping.GroupLevels = <>
        DataSource = dsc_MeterInd
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        RowDetailPanel.Color = clBtnFace
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnColEnter = dbgMeterIndColEnter
        OnEnter = dbgMeterIndEnter
        OnExit = dbgMeterIndExit
        Columns = <
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'METER_TYPE'
            Footers = <>
            ReadOnly = True
            Width = 119
          end
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'METER_NUM'
            Footers = <>
            ReadOnly = True
            Width = 85
          end
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
            ReadOnly = True
            Width = 78
          end
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'PH_OLD'
            Footers = <>
            ReadOnly = True
            Width = 88
          end
          item
            EditButtons = <>
            FieldName = 'PH'
            Footers = <>
            Width = 78
          end
          item
            EditButtons = <>
            FieldName = 'PZERO'
            Footers = <>
            Width = 82
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object tsPotrActs: TTabSheet
      Caption = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '#1087#1086' '#1072#1082#1090#1091
      object dbgActPotr: TDBGridEh
        Left = 0
        Top = 0
        Width = 572
        Height = 153
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dsc_ActPotr
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        RowDetailPanel.Color = clBtnFace
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnColEnter = dbgActPotrColEnter
        OnEnter = dbgActPotrEnter
        OnExit = dbgActPotrExit
        Columns = <
          item
            Color = clInactiveCaptionText
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
            ReadOnly = True
            Width = 244
          end
          item
            EditButtons = <>
            FieldName = 'POTR'
            Footers = <>
            Width = 88
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object tsAccpoint: TTabSheet
      Caption = #1058#1086#1095#1082#1072' '#1091#1095#1054#1090#1072
      ImageIndex = 2
      TabVisible = False
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 572
        Height = 153
        Align = alClient
        Shape = bsFrame
      end
      object Label6: TLabel
        Left = 48
        Top = 16
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1058#1080#1087' '#1058#1059
      end
      object Label7: TLabel
        Left = 48
        Top = 40
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1058#1059
      end
      object Label8: TLabel
        Left = 48
        Top = 64
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #8470' '#1058#1059
      end
      object dbeAccpointType: TDBEditEh
        Left = 136
        Top = 12
        Width = 185
        Height = 19
        TabStop = False
        AlwaysShowBorder = True
        Color = clInactiveCaptionText
        DataField = 'ACCTYPE'
        DataSource = dsc_Accpoint
        EditButtons = <>
        Flat = True
        ReadOnly = True
        TabOrder = 0
        Visible = True
      end
      object dbeAccpointName: TDBEditEh
        Left = 136
        Top = 36
        Width = 185
        Height = 19
        TabStop = False
        AlwaysShowBorder = True
        Color = clInactiveCaptionText
        DataField = 'NAME'
        DataSource = dsc_Accpoint
        EditButtons = <>
        Flat = True
        ReadOnly = True
        TabOrder = 1
        Visible = True
      end
      object dbeAccpintId: TDBEditEh
        Left = 136
        Top = 60
        Width = 185
        Height = 19
        TabStop = False
        AlwaysShowBorder = True
        Color = clInactiveCaptionText
        DataField = 'ID'
        DataSource = dsc_Accpoint
        EditButtons = <>
        Flat = True
        ReadOnly = True
        TabOrder = 2
        Visible = True
      end
      object bCardAccpoint: TButton
        Left = 136
        Top = 84
        Width = 185
        Height = 19
        Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1058#1059
        TabOrder = 3
        OnClick = bCardAccpointClick
      end
    end
  end
  inherited ActionList1: TActionList
    Left = 8
    Top = 36
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
    Left = 8
    Top = 4
  end
  object ds_AccpointAct: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE M_ACCPOINT_ACTS'
      'SET '
      '    ACT_TYPE = :ACT_TYPE,'
      '    ACT_DATE = :ACT_DATE,'
      '    IS_DELETED = :IS_DELETED,'
      '    BDATE = :BDATE,'
      '    EDATE = :EDATE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO M_ACCPOINT_ACTS('
      '    ACT_TYPE,'
      '    ACT_DATE,'
      '    ACCPOINT_ID,'
      '    BDATE,'
      '    EDATE'
      ')'
      'VALUES('
      '    :ACT_TYPE,'
      '    :ACT_DATE,'
      '    :ACCPOINT_ID,'
      '    :BDATE,'
      '    :EDATE'
      ')'
      'returning id, accpoint_id')
    RefreshSQL.Strings = (
      'select'
      '    id,'
      '    act_type,'
      '    act_date,'
      '    accpoint_id,'
      '    is_deleted,'
      '    createuserid,'
      '    createdate,'
      '    modifyuserid,'
      '    modifydate,'
      '    bdate,'
      '    edate'
      'from'
      '    m_accpoint_acts maa'
      'where MAA.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select'
      '    id,'
      '    act_type,'
      '    act_date,'
      '    accpoint_id,'
      '    is_deleted,'
      '    createuserid,'
      '    createdate,'
      '    modifyuserid,'
      '    modifydate,'
      '    bdate,'
      '    edate'
      'from'
      '    m_accpoint_acts maa'
      'where maa.id = :pact_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 120
    Top = 4
    object ds_AccpointActID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AccpointActACT_TYPE: TFIBIntegerField
      FieldName = 'ACT_TYPE'
    end
    object ds_AccpointActACT_DATE: TFIBDateField
      FieldName = 'ACT_DATE'
    end
    object ds_AccpointActACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object ds_AccpointActIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
    end
    object ds_AccpointActCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object ds_AccpointActCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object ds_AccpointActMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
    object ds_AccpointActMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object ds_AccpointActBDATE: TFIBDateField
      FieldName = 'BDATE'
      OnChange = ds_AccpointActBDATEChange
    end
    object ds_AccpointActEDATE: TFIBDateField
      FieldName = 'EDATE'
    end
  end
  object dsc_AccpointAct: TDataSource
    DataSet = ds_AccpointAct
    Left = 152
    Top = 4
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 88
    Top = 4
  end
  object ds_ActPotr: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE or INSERT INTO M_ACT_POTR('
      '    ID,'
      '    POTR,'
      '    ACT_ID,'
      '    GROUP_ID'
      ')'
      'VALUES('
      '    :ID,'
      '    :POTR,'
      '    :ACT_ID,'
      '    :GROUP_ID'
      ')'
      'matching (id)'
      '    ')
    InsertSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select distinct ss.name, s.group_id,'
      '         mp.id, cast(:pact_id as integer) as act_id,'
      '         mp.potr'
      
        '    from proc_accpoint_get_childs (:paccpoint_id, :pbdate, :peda' +
        'te, -1) p'
      '    join dogovors d on d.accpoint_id = p.raccpoint_id'
      '    join services s on s.id = d.service_id'
      '    join services ss on ss.id = s.group_id'
      '    left join m_act_potr mp on mp.is_deleted = 0'
      '      and mp.act_id = :pact_id'
      '      and mp.group_id = s.group_id'
      'order by 1')
    BeforeOpen = ds_ActPotrBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 28
    Top = 96
    object ds_ActPotrNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ActPotrGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
    object ds_ActPotrID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ActPotrACT_ID: TFIBIntegerField
      FieldName = 'ACT_ID'
    end
    object ds_ActPotrPOTR: TFIBBCDField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      FieldName = 'POTR'
      Size = 3
      RoundByScale = True
    end
  end
  object dsc_ActPotr: TDataSource
    DataSet = ds_ActPotr
    Left = 60
    Top = 96
  end
  object ds_MeterInd: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE or INSERT INTO METER_IND('
      '    id,'
      '    ACT_ID,'
      '    METER_ID,'
      '    PZERO,'
      '    PH'
      ')'
      'VALUES('
      '    :ID,'
      '    :ACT_ID,'
      '    :METER_ID,'
      '    :PZERO,'
      '    :PH'
      ')'
      'matching (id)    ')
    InsertSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'select mt.name as meter_type, m.meter_num, m.name,'
      '       cast(:pact_id as d_int) as act_id,'
      '       m.id as meter_id,'
      '       mi.pzero,'
      '       mi.id,'
      '       mi.ph,'
      
        '       (select rph from proc_meter_get_ind (m.id, :pact_date, :p' +
        'act_id)) as ph_old,'
      
        '       mi.ph - (select rph from proc_meter_get_ind (m.id, :pact_' +
        'date, :pact_id)) as potr'
      'from meters m '
      'join meter_types mt on m.meter_type = mt.id'
      'left join meter_ind mi on mi.act_id = :pact_id'
      '  and mi.meter_id = m.id'
      '  and mi.is_deleted = 0'
      'where m.accpoint_id = :paccpoint_id'
      '  and (mi.id is not null or m.meter_status = 1)'
      'order by 2, 3')
    BeforeOpen = ds_MeterIndBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 224
    Top = 64
    object ds_MeterIndMETER_TYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1055#1059
      FieldName = 'METER_TYPE'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MeterIndMETER_NUM: TFIBStringField
      DisplayLabel = #8470' '#1055#1059
      DisplayWidth = 10
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_MeterIndNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1055#1059
      DisplayWidth = 10
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_MeterIndACT_ID: TFIBIntegerField
      FieldName = 'ACT_ID'
    end
    object ds_MeterIndMETER_ID: TFIBIntegerField
      FieldName = 'METER_ID'
    end
    object ds_MeterIndPZERO: TFIBSmallIntField
      DisplayLabel = #1055#1077#1088#1077#1093#1086#1076#1086#1074' '#1095#1077#1088#1077#1079' 0'
      FieldName = 'PZERO'
    end
    object ds_MeterIndID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_MeterIndPH: TFIBBCDField
      DisplayLabel = #1053#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH'
      Size = 3
      RoundByScale = True
    end
    object ds_MeterIndPH_OLD: TFIBBCDField
      DisplayLabel = #1055#1088#1077#1076#1099#1076#1091#1097#1080#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH_OLD'
      Size = 3
      RoundByScale = True
    end
    object ds_MeterIndPOTR: TFIBBCDField
      FieldName = 'POTR'
      Size = 3
      RoundByScale = True
    end
  end
  object dsc_MeterInd: TDataSource
    DataSet = ds_MeterInd
    Left = 256
    Top = 64
  end
  object ds_Accpoint: TpFIBDataSet
    SelectSQL.Strings = (
      'select ma.id, ma.name, mat.acctype'
      '  from m_accpoint_acts maa, m_accpoint ma, m_accpoint_type mat'
      '  where ma.id = maa.accpoint_id'
      '    and mat.id = ma.account_type'
      '    and maa.id = :pact_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 292
    Top = 64
    object ds_AccpointID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AccpointNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
    object ds_AccpointACCTYPE: TFIBStringField
      FieldName = 'ACCTYPE'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Accpoint: TDataSource
    DataSet = ds_Accpoint
    Left = 324
    Top = 64
  end
  object DSContainer: TDataSetsContainer
    Left = 56
    Top = 4
  end
  object ds_ActTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    id,'
      '    code,'
      '    name'
      'from m_act_types m'
      
        'where (m.need_meter = coalesce((select first(1) 1 from meters ma' +
        ' where ma.accpoint_id = :paccpoint_id), 0)'
      '       or'
      '       m.need_meter = -1)'
      'order by name')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 120
    Top = 36
    object ds_ActTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ActTypesCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
    object ds_ActTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dsc_ActTypes: TDataSource
    DataSet = ds_ActTypes
    Left = 152
    Top = 36
  end
  object ds_LastAct: TpFIBDataSet
    SelectSQL.Strings = (
      'select coalesce((select first(1) maa.act_date'
      '        from m_accpoint_acts maa'
      '        where maa.is_deleted = 0'
      '          and maa.accpoint_id = ma.id'
      '          and maa.act_type = 2'
      '        order by 1 desc),'
      ''
      '        (select min(mc.bdate) from m_acc2acc mc'
      '          where mc.is_deleted = 0'
      '            and mc.parent_accpoint = ma.id))'
      '        as min_bdate,'
      ''
      
        '       (select first(1) iif(maa.act_type = 2, maa.act_date, maa.' +
        'edate + 1)'
      '        from m_accpoint_acts maa'
      '        where maa.is_deleted = 0'
      '          and maa.accpoint_id = ma.id'
      '        order by 1 desc) as max_bdate'
      '  from m_accpoint ma'
      '  where ma.id = :paccpoint_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 120
    Top = 68
    object ds_LastActMIN_BDATE: TFIBDateField
      FieldName = 'MIN_BDATE'
    end
    object ds_LastActMAX_BDATE: TFIBDateField
      FieldName = 'MAX_BDATE'
    end
  end
end
